Delete completion window on quitting

* lisp/simple.el (completion-list-mode-map): Rebind
delete-completion-window over keyboard-quit.

diff --git a/lisp/simple.el b/lisp/simple.el
index e2d140af891b1d63b7196de988f10f88fb7716f8..eb21814a3d469a8c5355dd0769ec54c6df39ba9a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8982,6 +8982,7 @@ makes it easier to edit it."
     (define-key map [down-mouse-2] nil)
     (define-key map "\C-m" 'choose-completion)
     (define-key map "\e\e\e" 'delete-completion-window)
+    (define-key map [remap keyboard-quit] #'delete-completion-window)
     (define-key map [left] 'previous-completion)
     (define-key map [right] 'next-completion)
     (define-key map [?\t] 'next-completion)